(mouse-start-end): For double click with START on openparen,

start forward scan from START.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 137fd54d189b1d8ac9b004017f0e6887592da297..64f188928c84ee576316b39a09703da21959e5f7 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -290,7 +290,11 @@ If DIR is positive skip forward; if negative, skip backward."
               (= start end)
              (char-after start)
               (= (char-syntax (char-after start)) ?\())
-        (list start (save-excursion (forward-sexp 1) (point))))
+        (list start
+              (save-excursion
+                (goto-char start)
+                (forward-sexp 1)
+                (point))))
         ((and (= mode 1)
               (= start end)
              (char-after start)